home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / telecom / tm421_4.zip / WIDTH.SCR < prev    next >
Text File  |  1996-02-06  |  1KB  |  43 lines
  1. ;
  2. ; WIDTH.SCR, set the terminal window width
  3. ;
  4. ; If you have a 132 column screen, Telemate will use it. However,
  5. ; Telemate will restrict screen output to 80 column only to 
  6. ; maintain compatibility with remote systems that are expecting
  7. ; 80 columns. ANSI and VT102 terminal emulation defined a 132
  8. ; column control code which will switch Telemate to 132 column
  9. ; mode. Most remote systems that use 132 column will send the
  10. ; special control code automatically.
  11. ;
  12. ; This script allows you to switch between 80 and 132 column
  13. ; mode manually by sending the appropriating column control code.
  14. ;
  15.  
  16. integer term, w
  17. string choice, s
  18.  
  19. if width <> 132
  20.   print "This script run 132 column screen only"
  21.   stop
  22. endif
  23.    
  24. query terminal,term
  25. if term=1 or term=3 or term=4
  26.   print
  27.   print "What terminal width do you like ?"
  28.   print " 1. 80 columns"
  29.   print " 2. 132 columns"
  30.   print "Select: ",
  31.   input choice
  32.   print "^[[2J",
  33.   concat s,choice
  34.   atoi s,w
  35.   switch w
  36.     case 1: print "^[[?3l",
  37.     case 2: print "^[[?3h",
  38.   endswitch
  39. else
  40.   print "This script run on ANSI, VT102 and AVATAR only"
  41. endif
  42.  
  43.